[!MULTI_FRAME] (FOR_EACH_FRAME): Fix Lisp_Object vs. int problems.

diff --git a/src/frame.h b/src/frame.h
index d8e11ec76f68e56baa010b94825b55a7d34fcb99..a2d2e0e80698f180ca71ca369ad754c6a34b944b 100644 (file)
--- a/src/frame.h
+++ b/src/frame.h
@@ -444,7 +444,7 @@ extern EMACS_INT last_nonminibuf_frame;
    `for' loop which traverses Vframe_list using LIST_VAR and
    FRAME_VAR.  */
 #define FOR_EACH_FRAME(list_var, frame_var)                    \
-  for (list_var = Qt; frame_var = selected_frame, ! NILP (list_var); list_var = Qnil)
+  for (list_var = Qt; XFASTINT (frame_var) = selected_frame, ! NILP (list_var); list_var = Qnil)
 
 #endif /* not MULTI_FRAME */